home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / small change (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  86 lines

  1. 10 REM *** ZEICHENSATZAENDERUNG ***
  2. 20 REM *** FUER "THE NEWSROOM"  ***
  3. 30 REM ***    KLEINE SCHRIFT    ***
  4. 50 POKE53280,3:POKE53281,3:PRINT"[147]"
  5. 100 DIMB(2000)
  6. 110 OPEN 3,8,3,"SFNTS,P,R"
  7. 115 PRINT"BITTE GEDULD - PURES BASIC"
  8. 120 AN=AN+1:GOSUB 1000:B(AN)=A
  9. 130 IF ST=0 THEN120
  10. 140 CLOSE 3
  11. 200 FOR L=4TO199
  12. 210 IFB(L)=0THEN 310
  13. 220 GOSUB2000:PRINT""
  14. 230 FORK=0TO7
  15. 240 FORM=0TO7
  16. 250 IF(B(L*8+171+K)AND2^M)=0THEN270
  17. 260 POKE1080+K*40+(7-M),81
  18. 270 POKE55352+K*40+(7-M),6
  19. 300 NEXTM,K
  20. 305 PRINT"ZEICHEN #:"L
  21. 310 PRINT"BREITE   :"B(L)
  22. 315 X=0:Y=0:POKE1080,PEEK(1080)OR128
  23. 320 GETA$:IFA$=""THEN320
  24. 325 IFA$="*"THENINPUT"ZEICHEN #:";L:GOTO210
  25. 326 IFA$="@"THENINPUT"NEUE ZEICHEN #:";L:GOSUB1700:GOTO410
  26. 330 IF A$="^"THENL=199:GOTO410
  27. 340 IF A$=""THENGOSUB1100
  28. 350 IF A$="[157]"THENGOSUB1200
  29. 360 IF A$=""THENGOSUB1300
  30. 370 IF A$="[145]"THENGOSUB1400
  31. 380 IFA$="="THENGOSUB1600
  32. 390 IFA$=CHR$(13)THENGOSUB1700:GOTO410
  33. 395 IFA$=" "THEN 410
  34. 400 GOTO 320
  35. 410 NEXTL
  36. 420 OPEN3,8,3,"@:NEWFONTS,P,W"
  37. 430 FORL=1TOAN
  38. 440 PRINT#3,CHR$(B(L));
  39. 450 NEXT
  40. 460 CLOSE3
  41. 470 END
  42. 880 NEXTL:END
  43. 1000 GET#3,A$
  44. 1010 IFA$=""THENA=0:RETURN
  45. 1020 A=ASC(A$):RETURN
  46. 1100 REM *** CURSOR RECHTS ***
  47. 1110 GOSUB 1500
  48. 1120 IF X<6THEN X=X+1
  49. 1130 GOSUB 1500
  50. 1140 RETURN
  51. 1200 REM *** CURSOR LINKS ***
  52. 1210 GOSUB 1500
  53. 1220 IF X>0THEN X=X-1
  54. 1230 GOSUB 1500
  55. 1240 RETURN
  56. 1300 REM *** CURSOR RUNTER ***
  57. 1310 GOSUB 1500
  58. 1320 IF Y<7THEN Y=Y+1
  59. 1330 GOSUB 1500
  60. 1340 RETURN
  61. 1400 REM *** CURSOR RAUF ***
  62. 1410 GOSUB 1500
  63. 1420 IF Y>0THEN Y=Y-1
  64. 1430 GOSUB 1500
  65. 1440 RETURN
  66. 1500 REM *** CURSOR SETZEN/LOESCHEN ***
  67. 1510 IFPEEK(1080+X+Y*40)>128THENPOKE1080+X+Y*40,PEEK(1080+X+Y*40)AND127:RETURN
  68. 1520 POKE1080+X+Y*40,PEEK(1080+X+Y*40)OR128:RETURN
  69. 1600 REM *** PUNKT SETZEN/LOESCHEN ***
  70. 1610 IF PEEK(1080+X+Y*40)=160THENPOKE1080+X+Y*40,209:RETURN
  71. 1620 IF PEEK(1080+X+Y*40)=209THENPOKE1080+X+Y*40,160:RETURN
  72. 1700 REM *** NEUES ZEICHEN ***
  73. 1710 GOSUB1500:INPUT"BREITE   ";B(L)
  74. 1720 FORK=0TO7:B(L*8+171+K)=0
  75. 1730 FORM=0TO7
  76. 1740 IFPEEK(1080+K*40+(7-M))=81THENB(L*8+171+K)=B(L*8+171+K)OR2^M
  77. 1750 NEXTM,K
  78. 1760 RETURN
  79. 2000 REM *** BILDSCHIRMAUFBAU ***
  80. 2010 PRINT"[147]                        "
  81. 2020 FORK=1TO8
  82. 2030 PRINT"                 "
  83. 2040 NEXT
  84. 2050 PRINT"                        "
  85. 2060 RETURN
  86.